From ed380ffbfcec5716febf50d574458050b78beba6 Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Wed, 28 Feb 2001 12:40:43 +0000 Subject: [PATCH] (setup-ethiopic-environment-internal): Change bindings of functions keys to conform to "Emacs Lisp Coding Convention". --- lisp/language/ethio-util.el | 42 +++++++++++++++++++++++++++---------- 1 file changed, 31 insertions(+), 11 deletions(-) diff --git a/lisp/language/ethio-util.el b/lisp/language/ethio-util.el index 43f2ad0ee1c..86e07e0c9d8 100644 --- a/lisp/language/ethio-util.el +++ b/lisp/language/ethio-util.el @@ -1,6 +1,6 @@ ;;; ethio-util.el --- utilities for Ethiopic -;; Copyright (C) 1997 Electrotechnical Laboratory, JAPAN. +;; Copyright (C) 1997, 2001 Electrotechnical Laboratory, JAPAN. ;; Licensed to the Free Software Foundation. ;; Keywords: mule, multilingual, Ethiopic @@ -22,7 +22,7 @@ ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. -;; Author: TAKAHASHI Naoto +;; Author: TAKAHASHI Naoto ;;; Code: @@ -34,18 +34,38 @@ (let ((key-bindings '((" " . ethio-insert-space) ([?\S- ] . ethio-insert-ethio-space) ([?\C-'] . ethio-gemination) - ([f2] . ethio-toggle-space) - ([S-f2] . ethio-replace-space) ; as requested - ([f3] . ethio-toggle-punctuation) + + ;; these old bindings conflict + ;; with Emacs' binding policy + + ;; ([f2] . ethio-toggle-space) + ;; ([S-f2] . ethio-replace-space) ; as requested + ;; ([f3] . ethio-toggle-punctuation) + ;; ([f4] . ethio-sera-to-fidel-buffer) + ;; ([S-f4] . ethio-sera-to-fidel-region) + ;; ([C-f4] . ethio-sera-to-fidel-mail-or-marker) + ;; ([f5] . ethio-fidel-to-sera-buffer) + ;; ([S-f5] . ethio-fidel-to-sera-region) + ;; ([C-f5] . ethio-fidel-to-sera-mail-or-marker) + ;; ([f6] . ethio-modify-vowel) + ;; ([f7] . ethio-replace-space) + ;; ([f8] . ethio-input-special-character) + + ;; this is the rewritten bindings + + ([f3] . ethio-fidel-to-sera-buffer) + ([S-f3] . ethio-fidel-to-sera-region) + ([C-f3] . ethio-fidel-to-sera-mail-or-marker) ([f4] . ethio-sera-to-fidel-buffer) ([S-f4] . ethio-sera-to-fidel-region) ([C-f4] . ethio-sera-to-fidel-mail-or-marker) - ([f5] . ethio-fidel-to-sera-buffer) - ([S-f5] . ethio-fidel-to-sera-region) - ([C-f5] . ethio-fidel-to-sera-mail-or-marker) - ([f6] . ethio-modify-vowel) - ([f7] . ethio-replace-space) - ([f8] . ethio-input-special-character))) + ([S-f5] . ethio-toggle-punctuation) + ([S-f6] . ethio-modify-vowel) + ([S-f7] . ethio-replace-space) + ([S-f8] . ethio-input-special-character) + ([C-f9] . ethio-toggle-space) + ([S-f9] . ethio-replace-space) ; as requested + )) kb) (while key-bindings (setq kb (car (car key-bindings))) -- 2.30.2